Imports CapaDeDatos
Public Class nListaDePrecio
    Private TblListaDePrecio As CapaDeDatos.dListaDePrecio = New dListaDePrecio()
    Public Function Insertar(ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As Boolean
        Return TblListaDePrecio.Insertar(FechaInicial, ValorKM, ValorHs, estado, codigoTunidad)
    End Function
    Public Function Listar() As DataSet
        Return TblListaDePrecio.Listar()
    End Function
    Public Function Modificar(ByVal codigoLista As Long, ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As Boolean
        Return TblListaDePrecio.Modificar(codigoLista, FechaInicial, ValorKM, ValorHs, estado, codigoTunidad)
    End Function
    Public Function Eliminar(ByVal CodigoLista As Long) As Boolean
        Return TblListaDePrecio.Eliminar(CodigoLista)
    End Function
    Public Function Buscar(ByVal codigoLista As Long, ByVal FechaInicial As Date, ByVal ValorKM As Double, ByVal ValorHs As Double, ByVal estado As String, ByVal codigoTunidad As Long) As DataSet
        Return TblListaDePrecio.Buscar(codigoLista, FechaInicial, ValorKM, ValorHs, estado, codigoTunidad)
    End Function

End Class
